home *** CD-ROM | disk | FTP | other *** search
/ HyperLib 1997 Winter - Disc 1 / HYPERLIB-1997-Winter-CD1.ISO.7z / HYPERLIB-1997-Winter-CD1.ISO / オンラインウェア / BUS / TMCM Software and Labs.sit / Software for TMCM 7_95 / Files for Lab 14 / Flaps < prev    next >
Text File  |  1995-03-11  |  334b  |  20 lines
  1. ; An animation of eight "flaps" (or "paddles"?) rotating
  2. ; around the y-axis
  3.  
  4. animate  30
  5.  
  6. define flap [
  7.   square scale 5,2 xTranslate 5
  8. ]
  9.  
  10. define Flaps [
  11.    flap 
  12.    flap yrotate 45
  13.    flap yrotate 90
  14.    flap yrotate 135
  15.    flap yrotate 180
  16.    flap yrotate 225
  17.    flap yrotate 270
  18.    flap yrotate 315 ]
  19.  
  20. Flaps yrotate 0:45 xrotate 15